
 1000  *--------------------------------
 1010  *      "FILEDUMP" COMMAND
 1020  *--------------------------------
 1030  DOS.OPEN.TEXT.FILE   .EQ $A2A3
 1040  DOS.CLOSE.FILE       .EQ $A2FC
 1050  DOS.READ.ONE.BYTE    .EQ $A68C
 1060  MON.COUT1            .EQ $FDF0
 1070  *--------------------------------
 1080         .OR $BCDF
 1090         .TA $8DF
 1100  FILEDUMP
 1110         JSR DOS.OPEN.TEXT.FILE
 1120         LDA #$8D
 1130  .1     JSR MON.COUT1
 1140         JSR DOS.READ.ONE.BYTE
 1150         BNE .1       PRINT IT
 1160         JMP DOS.CLOSE.FILE
 1170  *--------------------------------
 1180         .OR $A8E7
 1190         .TA $8E7
 1200         .AT /FILEDUMP/   NAME OF FILEDUMP COMMAND
 1210  *--------------------------------
 1220         .OR $9D48
 1230         .TA $848
 1240         .DA FILEDUMP-1   BRANCH FOR FILEDUMP COMMAND
 1250  *--------------------------------
 1260         .OR $A933
 1270         .TA $833
 1280         .HS 2030     FILENAME REQUIRED, SLOT & DRIVE
 1290  *                   ARE OPTIONAL

